home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / tlxset03.zip / DBBS.SLT next >
Text File  |  1990-01-14  |  1KB  |  48 lines
  1. //    Sample script file to log-onto an RBBS based system. This script is
  2. //    based on those appearing in the Telix distribution files.
  3. //
  4. //    note: _entry_pass is a system variable into which the dialing routines
  5. //          put whatever is in the password field of the dialing directory
  6. //          entry which was connected to.
  7. // 
  8. // ---->  replace "First" with your first name and replace "Last" with your
  9. //        last name. So, Joe Smith would put "Joe;Smith" on the line below.
  10. //        However, leave the punctuation marks alone.
  11.  
  12. str user_name[] = "First;Last";
  13.  
  14. //        now save this file and run it thru the CS.EXE program like this:
  15. //
  16. //                                CS DBBS.SLT
  17.  
  18. main()
  19.  
  20. {
  21.  alarm(1);
  22.  
  23.  if (not _entry_pass)                        // no pass, so didn't recog. board
  24.   {
  25.    prints ("Sorry, I don't know the password for this BBS!");
  26.    return;
  27.   }
  28.  
  29.  if (not waitfor("FIRST Name", 120))        // if no prompt for name
  30.   {
  31.    prints("Log-on failed!");
  32.    return;                                   // ...abort
  33.   }
  34.  
  35.  cputs(user_name);                           // send name
  36.  cputs("^M");
  37.  
  38.  if (not waitfor("Password", 30))          // if no prompt for password
  39.   {
  40.    prints("Log-on failed!");
  41.    return;                                   // ...abort
  42.   }
  43.  
  44.  cputs(_entry_pass);                         // send pass
  45.  cputs("^M");
  46.  
  47. }
  48.